home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00774_SU-RN fam.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  3.6 KB  |  107 lines
  1. on renseigne texte1, texte2, texte3, stile, nCurs
  2.   set the visible of sprite 4 to 0
  3.   set the visible of sprite 44 to 0
  4.   set the visible of sprite 45 to 0
  5.   updateStage()
  6.   set the textStyle of field "ZI3" to "plain"
  7.   set the textStyle of field "ZI3" to stile
  8.   set the text of cast "ZI1" to texte1
  9.   set the text of cast "ZI2" to texte2
  10.   set the text of cast "ZI3" to texte3
  11.   set the visible of sprite 4 to 1
  12.   set the visible of sprite 44 to 1
  13.   set the visible of sprite 45 to 1
  14.   curseur(nCurs)
  15.   updateStage()
  16. end
  17.  
  18. on exitFrame
  19.   global g1erSprNav, gLocLabel
  20.   if gLocLabel <> "SU:RN FA" then
  21.     curseur(6)
  22.     repeat with i = g1erSprNav + 2 to g1erSprNav + 4
  23.       set the visible of sprite i to 1
  24.     end repeat
  25.   end if
  26.   zut()
  27.   go(label(gLocLabel))
  28. end
  29.  
  30. on zut
  31.   global gBarChron, gSurvolAct, gSurvolPrec, gListSuj, gMessDef1, gMaxBoutons, gEtaSpir, gMessSty1, g1erSprChr, g1erSprNav, g1erSprLoc, gListCod, gEtudAct, gLocLabel, gLabel, gVide, gTraduit
  32.   if not (the mouseDown) then
  33.     set MsCast to the mouseCast
  34.     if MsCast > -1 then
  35.       if not gEtaSpir then
  36.         set gSurvolAct to 0
  37.         repeat with monSpr = g1erSprChr to gMaxBoutons
  38.           if rollOver(monSpr) then
  39.             set gSurvolAct to monSpr
  40.             exit repeat
  41.           end if
  42.         end repeat
  43.         if gSurvolAct <> gSurvolPrec then
  44.           if gSurvolAct <> 0 then
  45.             if (gSurvolAct >= g1erSprChr) and (gSurvolAct <= (g1erSprChr + 9)) then
  46.               renseigne(" ", " ", " ", "bold", 1)
  47.               gBarChron(survol, gSurvolAct, the number of cast "ZI3")
  48.             end if
  49.             if gSurvolAct = g1erSprNav then
  50.               renseigne(" ", " ", getAt(gTraduit, 12), "bold", 7)
  51.             end if
  52.             if gSurvolAct = (g1erSprNav + 1) then
  53.               renseigne(" ", " ", getAt(gTraduit, 26) && getAt(gTraduit, 3), "bold", 7)
  54.             end if
  55.             if gSurvolAct = (g1erSprNav + 5) then
  56.               renseigne(" ", " ", getAt(gTraduit, 27), "bold", 1)
  57.             end if
  58.             if gSurvolAct = (g1erSprNav + 6) then
  59.               renseigne(" ", " ", getAt(gTraduit, 29), "bold", 7)
  60.             end if
  61.             if (gSurvolAct >= g1erSprLoc) and (gSurvolAct <= gMaxBoutons) then
  62.               set the visible of sprite 4 to 0
  63.               set the visible of sprite 44 to 0
  64.               set the visible of sprite 45 to 0
  65.               updateStage()
  66.               set monNum to gSurvolAct - g1erSprLoc + 1
  67.               put ">>" && monNum
  68.               set monSuj to getAt(gListSuj, monNum)
  69.               Affiche_Date(monSuj, "ZI1", "ZI2", "ZI3", 1)
  70.               if monNum = 18 then
  71.                 curseur(1)
  72.               else
  73.                 curseur(7)
  74.               end if
  75.               set the visible of sprite 4 to 1
  76.               set the visible of sprite 44 to 1
  77.               set the visible of sprite 45 to 1
  78.               updateStage()
  79.             end if
  80.           else
  81.             renseigne(" ", " ", gMessDef1, gMessSty1, -1)
  82.             gBarChron(fleche, 0, 1, 1)
  83.           end if
  84.           set gSurvolPrec to gSurvolAct
  85.           updateStage()
  86.         end if
  87.       else
  88.         if MsCast > 0 then
  89.           if the number of words in the name of cast MsCast = 2 then
  90.             if (word 2 of the name of cast MsCast = "1") or (word 2 of the name of cast MsCast = "0") then
  91.               curseur(1)
  92.             else
  93.               curseur(-1)
  94.             end if
  95.           else
  96.             curseur(-1)
  97.           end if
  98.         end if
  99.       end if
  100.     else
  101.       gBarChron(fleche, 0, 1, 1)
  102.       renseigne(" ", " ", gMessDef1, gMessSty1, -1)
  103.     end if
  104.   end if
  105.   updateStage()
  106. end
  107.